home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 12 C64 Telecom / COTTER.ARC / TEXT FILE CONV (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.8 KB  |  22 lines
  1. 1 SYS3294:PRINT"[147]      TEXT FILE CONVERSION PROGRAM"
  2. 2 OPEN15,8,15
  3. 3 PRINT"SOURCE FILENAME";:INPUTS$
  4. 4 PRINT"FILETYPE(P OR S)";:INPUTTS$
  5. 6 PRINT"DESTINATION FILENAME";:INPUTD$
  6. 7 PRINT"FILETYPE(P OR S)";:INPUTTD$
  7. 8 OPEN1,8,3,"0:"+S$+","+TS$+",R":GOSUB100:IFERTHENCLOSE1:CLOSE15:END
  8. 9 OPEN2,8,7,"0:"+D$+","+TD$+",W":GOSUB100:IFERTHENCLOSE1:CLOSE2:CLOSE15:END
  9. 10 M$(1)="CBM TO ASCII":M$(2)="ASCII TO CBM"
  10. 11 M$(3)="CBM TO SPEEDSCRIPT(WORDPRO)":M$(4)="SPEEDSCRIPT(WORDPRO) TO CBM"
  11. 15 PRINT"":FORI=1TO4:PRINTI"[157]. ";M$(I):NEXT
  12. 25 PRINT""TAB(15)"WHICH ONE?"
  13. 40 GETA$:IFVAL(A$)<1ORVAL(A$)>4THEN40
  14. 50 ONVAL(A$)GOTO60,70,80,90
  15. 60 PRINT:PRINTM$(1):POKE3087,13:SYS3072:GOTO95
  16. 70 PRINT:PRINTM$(2):POKE3087,14:SYS3072:GOTO95
  17. 80 PRINT:PRINTM$(3):POKE3166,160:SYS3152:GOTO95
  18. 90 PRINT:PRINTM$(4):POKE3166,192:SYS3152
  19. 95 CLOSE1:CLOSE2:CLOSE15:END
  20. 100 INPUT#15,A,X$,Y$,Z$:IFA=0THENER=0:RETURN
  21. 110 ER=1:PRINTA;X$;Y$;Z$:PRINT"TYPE RUN TO TRY AGAIN":RETURN
  22.